﻿Imports Negocio
Imports Servicios

Public Class frmReportProject

    Private _project As New Proyecto()

    Protected Overrides Sub PreLoad()
        Me.Icon = Icon.FromHandle(Global.SIPRO.My.Resources.Resources.Report.GetHicon())
    End Sub

    Sub New(p As Proyecto)

        InitializeComponent()

        _project = p

    End Sub
    Private Sub frmReportProject_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        Dim proy As RptProyecto = GesInformes.CreateRptProject(_project)
        Me.RptProyectoBindingSource.DataSource = proy
        Me.RptTareaBindingSource.DataSource = proy.Tareas
        Me.RptRecursoBindingSource.DataSource = GesProyectos.ObtenerRecursos(_project)
        Me.RVProyecto.RefreshReport()

    End Sub

End Class